home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / joytest.mod < prev    next >
Encoding:
Text File  |  1995-11-25  |  2.7 KB  |  60 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version: 20.12.89   00:174:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. MODULE JoyTest ;
  20. (* Mit diesem MODULE kann die Maus Paralell mit Joystick und Maus bedient *)
  21. (* werden.                                                                *)
  22. (* Kurzer Test für Joystickabfrage und Mauspositionierung                 *)
  23. (* Achtung ! Wenn mann mit dem Mauszeiger über den Bildschirmrand fährt   *)
  24. (* wirft der ATARI Bomben !                                               *)
  25.  
  26. FROM JoyEvent IMPORT InitJoyEvent,JoyEventType,Joystick,TermJoyEvent,
  27.                      NoEvents,JoyEvents;
  28. FROM MousePosition IMPORT GetMousePos,SetMousePos;
  29. FROM InOut IMPORT WriteString;
  30.  
  31. VAR
  32.     je:JoyEvents;
  33.     i :INTEGER;
  34.     mx,my,w :INTEGER;
  35. BEGIN
  36.   InitJoyEvent;
  37.   FOR i:=0 TO 10000 DO
  38.     Joystick(je);
  39.     GetMousePos(mx,my,w);
  40.     IF je#NoEvents THEN
  41.       IF Up IN je THEN (*WriteString('up');*)
  42.          INC(my)
  43.  
  44.       END(*IF*);
  45.       IF Down IN je THEN (*WriteString('down');*)
  46.          DEC(my)
  47.       END(*IF*);
  48.       IF Right IN je THEN (*WriteString('right');*)
  49.          DEC(mx);
  50.       END(*IF*);
  51.       IF Left IN je THEN (*WriteString('left');*)
  52.          INC(mx);
  53.       END(*IF*);
  54.       SetMousePos(mx,my);
  55.       (* WriteString(' ')*)
  56.     END(*IF*);
  57.   END(*FOR*);
  58.   TermJoyEvent;
  59. END JoyTest.
  60.